104

Beginner’s Guide to Code Algorithms

104

STEP 1—​check all sheets

‘ ** create all sheets required **

  Continue =​ InputBox(“This worksheet must have the From Entity, To Entity and

Connection Name in the three initial columns without header. Continue?”)

  If Left(Continue, 1) <> “Y” Then

    Exit Sub

  End If

  Dim sheet As Worksheet

  Dim CurrentSheet As Worksheet

  Set CurrentSheet =​ Application.ActiveSheet

  CurrentSheetName =​ ActiveSheet.Name

 

  FoundSheet =​ 0

  For Each sheet In ActiveWorkbook.Worksheets

  If sheet.Name =​ “Entities” Then

    FoundSheet =​ 1

    Exit For

  End If

  Next

  If FoundSheet =​ 0 Then

    Set sheet =​ ActiveWorkbook.Sheets.Add(After:=​ActiveWorkbook.

Worksheets(ActiveWorkbook.Worksheets.Count))

    sheet.Name =​ “Entities”

  End If

    Worksheets(“Entities”).Cells(1, 1) =​ “Entity”

  Worksheets(“Entities”).Cells(1, 2) =​ “From Count”

  Worksheets(“Entities”).Cells(1, 3) =​ “To Count”

  Worksheets(“Entities”).Cells(1, 4) =​ “Total Count”

  FoundSheet =​ 0

  For Each sheet In ActiveWorkbook.Worksheets

  If sheet.Name =​ “IdenticalPairs” Then

    FoundSheet =​ 1

    Exit For

  End If

  Next

  If FoundSheet =​ 0 Then

  Set sheet =​ ActiveWorkbook.Sheets.Add(After:=​ActiveWorkbook.

Worksheets(ActiveWorkbook.Worksheets.Count))

    sheet.Name =​ “IdenticalPairs”

  End If

  Worksheets(“IdenticalPairs”).Cells(1, 1) =​ “From”

  Worksheets(“IdenticalPairs”).Cells(1, 2) =​ “To”

  Worksheets(“IdenticalPairs”).Cells(1, 3) =​ “Additional Connection Name”

  FoundSheet =​ 0

  For Each sheet In ActiveWorkbook.Worksheets

  If sheet.Name =​ “Diagram” Then

    FoundSheet =​ 1

    Exit For

  End If